home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / SEQUENCE.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  874b  |  50 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. SUB Sequencer (Ichoice%, MaxVal%, ExitKey%) STATIC
  5.  
  6.     DIM m$(3)
  7.  
  8.     SELECT CASE ExitKey%
  9.         CASE 1
  10.             Ichoice% = Ichoice% - 1
  11.         CASE 2
  12.             Ichoice% = 1
  13.         CASE 3
  14.             Ichoice% = Ichoice% + 1
  15.         CASE 4
  16.             Ichoice% = MaxVal%
  17.         CASE 5
  18.             Ichoice% = Ichoice% + 1
  19.         CASE 6
  20.             m$(1) = "Are these details correct ?"
  21.             YesOrNo m$(), 1, 5, 0, 7, 0, 7, Yn$
  22.             IF Yn$ = "Y" THEN
  23.                 Ichoice% = 999
  24.             END IF
  25.         CASE 7
  26.             m$(1) = "ABORT THIS ENTRY !"
  27.             m$(2) = ""
  28.             m$(3) = "Are you sure that this is what you want ?"
  29.             YesOrNo m$(), 3, 5, 0, 7, 0, 7, Yn$
  30.             IF Yn$ = "Y" THEN
  31.                 Ichoice% = 998
  32.             END IF
  33.         CASE ELSE
  34.     END SELECT
  35.  
  36.     IF Ichoice% < 998 THEN
  37.      
  38.         IF Ichoice% < 1 THEN
  39.             Ichoice% = MaxVal%
  40.         END IF
  41.  
  42.         IF Ichoice% > MaxVal% THEN
  43.             Ichoice% = 1
  44.         END IF
  45.  
  46.     END IF
  47.  
  48. END SUB
  49.  
  50.